home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / util / misc / MultiUser18ext.lha / MultiUser / Extern / Modula / OptMultiUserL.def < prev    next >
Encoding:
Modula Definition  |  1994-03-07  |  2.1 KB  |  58 lines
  1. DEFINITION MODULE OptMultiUserL{"multiuser.library",-39};
  2. (* Frank J. Beckmann    22.10.1993 *)
  3.  
  4.  
  5. FROM SYSTEM IMPORT
  6.  ADDRESS;
  7.  
  8. FROM DosD IMPORT
  9.  FileLockPtr;
  10. FROM ExecD IMPORT
  11.  LibraryPtr, TaskPtr;
  12. FROM UtilityD IMPORT
  13.  TagItemPtr;
  14.  
  15. IMPORT
  16.  d: MultiUserD,
  17.  R;
  18.  
  19.  
  20. VAR
  21.  multiuserVersion: INTEGER;
  22.  multiuserBase: LibraryPtr;
  23.  
  24. CONST
  25.  multiuserMinVersion=39;
  26.  multiUserName="multiuser.library";
  27.  
  28.  
  29. PROCEDURE LogoutA(taglist{R.A0}: TagItemPtr): LONGCARD; CODE -30;
  30. PROCEDURE LoginA(taglist{R.A0}: TagItemPtr): LONGCARD; CODE -36;
  31. PROCEDURE GetTaskOwner(task{R.D0}: TaskPtr): LONGCARD; CODE -42;
  32. PROCEDURE Passwd(oldpwd{R.A0}: ADDRESS; newpwd{R.A1}: ADDRESS): BOOLEAN; CODE -48;
  33. PROCEDURE AllocUserInfo(): d.UserInfoPtr; CODE -54;
  34. PROCEDURE FreeUserInfo(info{R.A0}: d.UserInfoPtr); CODE -60;
  35. PROCEDURE GetUserInfo(info{R.A0}: d.UserInfoPtr; keytype{R.D0}: LONGCARD): BOOLEAN;
  36.           CODE -66;
  37. PROCEDURE SetDefProtectionA(taglist{R.A0}: TagItemPtr): BOOLEAN; CODE -78;
  38. PROCEDURE GetDefProtection(task{R.D0}: TaskPtr): d.ProtectionFlagSet; CODE -84;
  39. PROCEDURE SetProtection(name{R.D1}: ADDRESS; mask: d.ProtectionFlagSet): BOOLEAN;
  40.           CODE -90;
  41. PROCEDURE LimitDOSSetProtection(flag{R.D1}: BOOLEAN): BOOLEAN; CODE -96;
  42. PROCEDURE CheckPasswd(taglist{R.A0}: TagItemPtr): BOOLEAN; CODE -102;
  43. PROCEDURE GetPasswdDirLock(): FileLockPtr; CODE -114;
  44. PROCEDURE GetConfigDirLock(): FileLockPtr; CODE -120;
  45. PROCEDURE GetTaskExtOwner(task{R.D0}: TaskPtr): d.ExtOwnerPtr; CODE -126;
  46. PROCEDURE FreeExtOwner(info{R.A0}: d.ExtOwnerPtr); CODE -132;
  47. PROCEDURE GetRelationshipA(user{R.D0}: d.ExtOwnerPtr; owner{R.D1}: LONGCARD;
  48.           taglist{R.A0}: TagItemPtr): d.RelationSet; CODE -138;
  49. PROCEDURE UserInfo2ExtOwner(info{R.A0}: d.UserInfoPtr): d.ExtOwnerPtr; CODE -144;
  50. PROCEDURE AllocGroupInfo(): d.GroupInfoPtr; CODE -150;
  51. PROCEDURE FreeGroupInfo(info{R.A0}: d.GroupInfoPtr); CODE -156;
  52. PROCEDURE GetGroupInfo(info{R.A0}: d.GroupInfoPtr; keytype: LONGCARD): BOOLEAN;
  53.           CODE -162;
  54. PROCEDURE AddMonitor(monitor{R.A0}: d.MonitorPtr): BOOLEAN; CODE -168;
  55. PROCEDURE RemMonitor(monitor{R.A0}: d.MonitorPtr); CODE -174;
  56.  
  57. END OptMultiUserL.
  58.